﻿Imports System.Runtime.Serialization
Imports System.ServiceModel
Imports WSEntidades
Imports WSNegocios

' NOTA: puede usar el comando "Cambiar nombre" del menú contextual para cambiar el nombre de clase "ServicioPremium" en el código, en svc y en el archivo de configuración a la vez.
Public Class ServicioPremium
    Implements IServicioPremium

    Public Function ValidaTxt(ByVal Txt As String, ByRef Resp As List(Of RespuestaPremium), _
                              ByRef DetResp As DetalleRespuesta, ByVal RutaLayout As String) As Boolean _
                    Implements IServicioPremium.ValidaTxt
        Dim premiumBL As PremiumBL = New PremiumBL()
        Try
            Return (premiumBL.ValidaTxt(Txt, Resp, DetResp, RutaLayout))
        Catch ex As Exception
            DetResp.estableceValores(DetalleRespuesta.CodigoRespuesta.ExcepcionEnOperacion,
                                     DetResp.Mensajes & "Error al Validar Txt: " & ex.Message)
            Return False
        Finally
            premiumBL = Nothing
        End Try
    End Function
End Class
